home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Utilities / Merry Xmas Killer / card_2932.txt < prev    next >
Encoding:
Text File  |  1994-05-17  |  5.3 KB  |  168 lines
  1. -- card: 2932 from stack: in
  2. -- bmap block id: 3618
  3. -- flags: 0000
  4. -- background id: 2789
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=329 top=144 right=165 bottom=439
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Disinfect…
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   push card
  23.   lock screen
  24.   set lockmessages to true
  25.   set lockrecent to true
  26.   put the userlevel into oldlevel
  27.   set the userlevel to 5
  28.  
  29.   doMenu "Open Stack..."
  30.  
  31.   put the script of this stack into stackScript
  32.   if the last line of stackScript is "end lastlines" then
  33.     answer "It is infected! Working on disinfection."
  34.     put empty into found
  35.     repeat with i=(the number of lines of stackScript) down to 1
  36.       if (line i of stackScript) contains "on openbackground --merryxmas" then
  37.       put i into found
  38.     end if
  39.   end repeat
  40.   if found is empty then
  41.     answer "Sorry, this must be a mutation. I can't fight it."
  42.   else
  43.     repeat until found > (the number of lines of stackScript)
  44.       delete line found of stackScript
  45.     end repeat
  46.     set the script of this stack to stackScript
  47.     answer "This stack has been fixed."
  48.   end if
  49. else
  50.   answer "This stack is Merry Christmas Virus free."
  51. end if
  52.  
  53. pop card
  54. unlock screen
  55. set lockmessages to false
  56. set lockrecent to false
  57. set the userlevel to oldlevel
  58. end mouseUp
  59.  
  60.  
  61. -- part 2 (button)
  62. -- low flags: 00
  63. -- high flags: A003
  64. -- rect: left=329 top=172 right=193 bottom=439
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Check me…
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   put the script of this stack into stackScript
  76.   if the last line of stackScript is "end lastlines" then
  77.     answer "I am infected! Working on disinfection."
  78.     put empty into found
  79.     put (the number of lines of stackScript)
  80.     repeat with i=(the number of lines of stackScript) down to 1
  81.       if (line i of stackScript) contains "on openbackground --merryxmas" then
  82.       put i into found
  83.     end if
  84.   end repeat
  85.   if found is empty then
  86.     answer "Sorry, this must be a mutation. I can't fight it."
  87.   else
  88.     repeat until found > (the number of lines of stackScript)
  89.       delete line found of stackScript
  90.     end repeat
  91.     set the script of this stack to stackScript
  92.     answer "I have been fixed."
  93.   end if
  94. else
  95.   answer "I am Merry Christmas Virus free."
  96. end if
  97. end mouseUp
  98.  
  99.  
  100. -- part 3 (button)
  101. -- low flags: 00
  102. -- high flags: 0000
  103. -- rect: left=472 top=315 right=342 bottom=511
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 2478 / 2478
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: 
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   set the  visible of cd fld "info" to not the visible of cd fld "info"
  115. end mouseUp
  116.  
  117.  
  118. -- part 4 (field)
  119. -- low flags: 85
  120. -- high flags: 2007
  121. -- rect: left=43 top=23 right=315 bottom=495
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 0
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: info
  130. ----- HyperTalk script -----
  131. on mouseup
  132.   hide me
  133. end mouseup
  134.  
  135.  
  136. -- part contents for card part 4
  137. ----- text -----
  138. Merry Christmas Killer is meant to kill the HyperCard virus known as "Merry Christmas," or "Merry Xmas."
  139.  
  140. This virus was named "Merry Christmas" due to its signature in several lines, "Merry Christmas." I assume it was named after a worm released several years ago, also named "Merry Christmas." Aside from the name, and parasitic task, they share almost nothing in common.
  141.  
  142. Except for noticable delays opening stacks and virulent spreading, "Merry Christmas" does not appear to be malicious.
  143.  
  144. Whoever programmed this virus, I would like to extend my heartfelt hatred toward you. You not only made my waste nearly a day programming this, but you also have released a harmful parasite into the Macintosh community. May you forever be doomed to use Windows.
  145.  
  146. To use Merry Christmas Killer, FIRST SELECT "DISINFECT" AND DISINFECT THE HOME FILE. If you do not do this step, every stack you disinfect has a good chance of immediately being reinfected. And that is not good. 
  147.  
  148. Once you have done this, click "Check Me." This is also very important, because it makes sure that Merry Christmas Killer has not picked up the virus along the way. (It probably has.)
  149.  
  150. After this, you have only begun! Now "Disinfect" every stack you own. If you forget a stack that is infected, it will reinfect your Home stack, thus restarting the cycle over again! :-(
  151.  
  152. If Merry Christmas Killer has helped you stay virus-free, or if it has removed a virus from your system, please support shareware by sending $4 to:
  153.  
  154. John Stiles
  155. 8800 St. Cloud Ln.
  156. Bakersfield, CA 93311
  157.  
  158. Please help to keep shareware alive! Shareware is one of the few remaining things where one person can make a serious difference.
  159.  
  160. If you come across a version of "Merry Christmas" that is either reported as a "mutation" or is not found at all by this stack, please tell me! 
  161.  
  162. I can be reached at:
  163. America Online:  JohnStiles
  164. Internet:  JohnStiles@aol.com
  165.  
  166. Thanks! And may your days be virus-free!
  167.  
  168.                                                                        *Stiles